home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / dbimport.sit / DB Importer / card_2840.txt < prev    next >
Text File  |  1988-04-11  |  4KB  |  180 lines
  1. -- card: 2840 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2586
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide message
  9. end openCard
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: 8006
  15. -- rect: left=287 top=52 right=74 bottom=451
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Import Data Base
  24. ----- HyperTalk script -----
  25. --to use this button, prepare at least as many card background fields
  26. --as fields separated by tabs of your text data file
  27. --    by Ted Tripp, 4588 CR 523, Bayfield, CO 81122, 303-884-9029
  28. on mouseUp
  29.   ask "Import text from which file?"
  30.   if it is empty then exit mouseUp
  31.   put it into fileName
  32.   open file fileName
  33.   repeat
  34.     read from file fileName until return -- get first record
  35.     if it is empty then
  36.       doMenu "Delete Card"
  37.       close file fileName
  38.       exit mouseUp
  39.     end if
  40.     put it into data
  41.     repeat with i = 1 to the number of fields
  42.       put offset(tab,data) into num --gets first field (until tab)
  43.       if num is 0 then -- last field of record has no tab
  44.         put data into field i -- writes last field
  45.         delete last char of field i -- deletes return char
  46.         if first char of field i is quote then
  47.           delete first char of field i
  48.           delete last char of field i
  49.         end if
  50.         exit repeat -- stops
  51.       end if
  52.       put char 1 to (num - 1) of data into field i -- writes first field
  53.       if first char of field i is quote then
  54.         delete first char of field i
  55.         delete last char of field i
  56.       end if
  57.       delete char 1 to num of data -- gets rid of field
  58.     end repeat
  59.     doMenu "New Card"
  60.   end repeat
  61.   close file fileName
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 3 (button)
  67. -- low flags: 00
  68. -- high flags: 8006
  69. -- rect: left=287 top=29 right=51 bottom=451
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Set Field Names
  78. ----- HyperTalk script -----
  79. --prepare text data file with field headers (names) separated by tabs
  80. --to use this button, prepare at least as many card background fields
  81. --as fields separated by tabs of your text data file
  82. --    by Ted Tripp, 4588 CR 523, Bayfield, CO 81122, 303-884-9029
  83. on mouseUp
  84.   ask "Set field names from which file?"
  85.   if it is empty then exit mouseUp
  86.   put it into fileName
  87.   open file fileName
  88.   read from file fileName until return --get field headers
  89.   if it is empty then
  90.     close file fileName
  91.     exit mouseUp
  92.   end if
  93.   put it into fieldNames
  94.   repeat with i = 1 to the number of fields
  95.     put offset(tab,fieldNames) into num --gets characters until tab
  96.     if num is 0 then
  97.       set name of field i to fieldNames -- sets last field name, stops
  98.       put fieldNames into field i
  99.       exit repeat
  100.     end if
  101.     get char 1 to num - 1 of fieldNames
  102.     set name of field i to it
  103.     put it into field i
  104.     delete char 1 to num of fieldNames
  105.   end repeat
  106.   close file fileName
  107.   choose field tool --ready to adjust fields
  108. end mouseUp
  109.  
  110.  
  111. -- part 4 (button)
  112. -- low flags: 00
  113. -- high flags: 0000
  114. -- rect: left=231 top=31 right=70 bottom=272
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 19678 / 19678
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Tell Me About...
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   go to card "AboutΓǪ"
  126. end mouseUp
  127.  
  128.  
  129. -- part contents for background part 1
  130. ----- text -----
  131. Data Base Importer
  132.  
  133. -- part contents for background part 25
  134. ----- text -----
  135. Field 2
  136.  
  137. -- part contents for background part 26
  138. ----- text -----
  139. Field 3
  140.  
  141. -- part contents for background part 27
  142. ----- text -----
  143. Field 4
  144.  
  145. -- part contents for background part 28
  146. ----- text -----
  147. Field 5
  148.  
  149. -- part contents for background part 29
  150. ----- text -----
  151. Six
  152.  
  153. -- part contents for background part 30
  154. ----- text -----
  155. Seven
  156.  
  157. -- part contents for background part 31
  158. ----- text -----
  159. Eight
  160.  
  161. -- part contents for background part 32
  162. ----- text -----
  163. Nine
  164.  
  165. -- part contents for background part 33
  166. ----- text -----
  167. Ten
  168.  
  169.  
  170. -- part contents for background part 34
  171. ----- text -----
  172. Eleven
  173.  
  174. -- part contents for background part 35
  175. ----- text -----
  176. Twelve
  177.  
  178. -- part contents for background part 36
  179. ----- text -----
  180. Thirteen